﻿Imports System.IO

Public Class configure
    Dim prjfile As String

    Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
        Dim ini As New IniFile
        ini.RemoveAllSections()
        ini.AddSection("project").AddKey("Name").Value = prjName.Text
        ini.Save(main.ProjectPath & "\omnisource.ini")
        set_project()
        Me.Close()
    End Sub

    Private Sub set_project()
        main.prj_name_st.Text = prjName.Text
        main.solnBrowse.setroot(prjName.Text)
        main.description.Text = descr.Text
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
End Class